object Form3: TForm3
  Left = 303
  Top = 181
  Width = 446
  Height = 381
  Caption = 'Preview'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 307
    Width = 438
    Height = 40
    Align = alBottom
    TabOrder = 0
    Visible = False
    object Button1: TButton
      Left = 224
      Top = 7
      Width = 75
      Height = 25
      Caption = 'Next'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 138
      Top = 7
      Width = 75
      Height = 25
      Caption = 'Previous'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 438
    Height = 235
    Align = alClient
    BevelOuter = bvNone
    Color = clBlack
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 1
    object PreviewImage: TImage
      Left = 0
      Top = 0
      Width = 438
      Height = 235
      Align = alClient
      AutoSize = True
      Center = True
      PopupMenu = PreviewPopup
      Proportional = True
      Transparent = True
      OnMouseDown = PreviewImageMouseDown
      OnMouseMove = PreviewImageMouseMove
      OnMouseUp = PreviewImageMouseUp
    end
  end
  object pSubject: TPanel
    Left = 0
    Top = 235
    Width = 438
    Height = 24
    Align = alBottom
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 2
    Visible = False
    DesignSize = (
      438
      24)
    object lSubject: TLabel
      Left = 8
      Top = 4
      Width = 417
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 'lSubject'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object pProperties: TPanel
    Left = 0
    Top = 259
    Width = 438
    Height = 24
    Align = alBottom
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 3
    Visible = False
    DesignSize = (
      438
      24)
    object lSize: TLabel
      Left = 8
      Top = 4
      Width = 145
      Height = 13
      AutoSize = False
      Caption = 'lSize'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lLocation: TLabel
      Left = 320
      Top = 3
      Width = 113
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 'lLocation'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lDate: TLabel
      Left = 160
      Top = 3
      Width = 31
      Height = 13
      Caption = 'lDate'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object pEXIF: TPanel
    Left = 0
    Top = 283
    Width = 438
    Height = 24
    Align = alBottom
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 4
    Visible = False
    object lFlash: TLabel
      Left = 8
      Top = 4
      Width = 34
      Height = 13
      Caption = 'lFlash'
      Color = clCream
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object lISO: TLabel
      Left = 56
      Top = 4
      Width = 25
      Height = 13
      Caption = 'lISO'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lAperture: TLabel
      Left = 112
      Top = 4
      Width = 52
      Height = 13
      Caption = 'lAperture'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object lFocalLength: TLabel
      Left = 256
      Top = 4
      Width = 74
      Height = 13
      Caption = 'lFocalLength'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lExposure: TLabel
      Left = 152
      Top = 4
      Width = 56
      Height = 13
      Caption = 'lExposure'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
    object lPhotoDate: TLabel
      Left = 352
      Top = 4
      Width = 64
      Height = 13
      Caption = 'lPhotoDate'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10930928
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
    end
  end
  object PreviewPopup: TPopupMenu
    Left = 300
    Top = 174
    object aNext1: TMenuItem
      Action = aNext
    end
    object aPrevious1: TMenuItem
      Action = aPrevious
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object pSlideShow: TMenuItem
      Caption = 'Slide show'
      OnClick = pSlideShowClick
    end
    object pMonitor: TMenuItem
      Caption = 'Monitor'
      OnClick = pMonitorClick
    end
    object pSetup: TMenuItem
      Caption = 'Slide show options'
      OnClick = pSetupClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pmShowSubject: TMenuItem
      Caption = 'Show subject/comment'
      OnClick = pmShowSubjectClick
    end
    object pmShowProperties: TMenuItem
      Caption = 'Show properties'
      OnClick = pmShowPropertiesClick
    end
    object pmShowEXIF: TMenuItem
      Caption = 'Show EXIF'
      OnClick = cbShowEXIFClick
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 49
    Top = 104
  end
  object ActionList1: TActionList
    Left = 144
    Top = 160
    object aPrevious: TAction
      Caption = 'Previous'
      ShortCut = 37
      OnExecute = Button2Click
    end
    object aNext: TAction
      Caption = 'Next'
      ShortCut = 39
      OnExecute = Button1Click
    end
    object aClose: TAction
      Caption = 'aClose'
      ShortCut = 27
      OnExecute = aCloseExecute
    end
  end
end